home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Utilities / TurboBase / Examples / Makro / TurboCalc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-30  |  821 b   |  45 lines
  1.  
  2. /*
  3.  * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
  4.  *
  5.  * Dieses Script exportiert alle Datensätze des aktueller Datenbank
  6.  * in die aktuelle Tabelle von TurboCalc (muß geöffnet sein!)
  7.  *
  8.  * (Die Datensätze werden in diesem Beispiel einzeln per Clipboard
  9.  * übertragen - in der Praxis geht dies natürlich anders viel schneller
  10.  * dies nur als kleines Beispiel)
  11.  *
  12.  */
  13.  
  14.  
  15. OPTIONS FAILAT 100
  16.  
  17. ADDRESS TBASE
  18.  
  19. /* aktuelles Projekt wählen! */
  20. CONTEXT.MACRO
  21.  
  22. /* Eine neue Abfrage öffnen,
  23.    mit VERBOSE wird ein Statusfenster angezeigt! */
  24.  
  25. QUERY "TurboCalc-Export" NEW VERBOSE
  26. if rc~=0 then exit
  27.  
  28. FIRST
  29. do while (RC==0)
  30.   COPY
  31.   if rc~=0 then break
  32.  
  33.   address TCALC CLIPREAD
  34.   address TCALC DOWN
  35.  
  36.   QUERY "TurboCalc-Export"
  37.   if rc~=0 then break
  38.  
  39.   NEXT
  40. end
  41.  
  42. /* Abfrage und Statusfenster wieder schließen */
  43. CLOSE
  44.  
  45.